include "testio.f90"

program readio 
    use aerof
    implicit none
    
    type(fandm) :: arr

    100 format(2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15)
    200 format(2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15, 2XE22.15)
    read(*,fmt=100) arr%t, arr%fx, arr%fy, arr%fz, arr%mx, arr%my, arr%mz
    write(*, fmt=200) arr%t, arr%fx, arr%fy, arr%fz, arr%mx, arr%my, arr%mz
    ! read(*,*)

end program readio